home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / dev / amos / amoslist.lzh / AMOSLIST / 000166_amos-request@svcs1.digex.net_Wed Jan 29 18:26:50 1997.msg < prev    next >
Internet Message Format  |  1997-02-02  |  2KB
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail1.access.digex.net (8.8.5/8.8.5) with ESMTP id SAA19384
  3.     for <mcox@access.digex.net>; Wed, 29 Jan 1997 18:26:07 -0500 (EST)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id OAA08361
  6.     for amos-out; Wed, 29 Jan 1997 14:55:47 -0500 (EST)
  7. Received: from mail2.access.digex.net (mail2.access.digex.net [205.197.247.3])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id OAA08358
  9.     for <amos-list@svcs1.digex.net>; Wed, 29 Jan 1997 14:55:46 -0500 (EST)
  10. Received: from hermes.beotel.net (ns.beotel.net [194.106.162.2])
  11.     by mail2.access.digex.net (8.8.5/8.8.5) with ESMTP id OAA16475
  12.     for <amos-list@access.digex.net>; Wed, 29 Jan 1997 14:55:42 -0500 (EST)
  13. Received: from setnet.UUCP (Usetnet@localhost) by hermes.beotel.net (8.7.6/8.6.12) with UUCP id UAA17396 for amos-list@access.digex.net; Wed, 29 Jan 1997 20:37:21 +0100
  14. X-Authentication-Warning: hermes.beotel.net: Usetnet set sender to setnet!smolenski using -f
  15. Received: by setnet.co.yu (0.99.960714)
  16.   id AA02945; 28 Jan 97 14:51:30 +0100
  17. From: smolenski@setnet.co.yu (Nikola Smolenski)
  18. Date: 28 Jan 97 14:48:04 +0100
  19. Subject: rnd
  20. Message-ID: <b43_9701281451@setnet.co.yu>
  21. Organization: SETNet - Ujedinjeni BBS-ovi Balkana
  22. To: amos-list@access.digex.net
  23. Status: RO
  24. X-Status: 
  25.  
  26.  
  27.  gs> If someone's interested I finally got a program that goes randomly one
  28.  gs> time to each label: 
  29.  
  30.  
  31.  gs> Dim USED(10)
  32.  
  33.  gs> Do 
  34.  
  35.  gs> _START:
  36.  
  37.  gs> X=Rnd(9)+1
  38.  
  39.  gs> If USED(X)<>0 Then Goto _START
  40.  
  41. This could be wery slow - imagine that you have 100 labels and you have to
  42. goto _START about 50 times in the last step! And before that 49 times etc.
  43. I personaly liked the most solution with swap(). And mine, ofcourse:)
  44. _        _  _         _  _          _                                   _
  45. \--- :_ :_ :_::- --: : ::_) _: --- \/ ----------------------------------/
  46. \\_: !_)!_,! !!_,  !,!_!! \(_! ::::..::::      nEVERmIND     :::'`::::_//
  47. `\------------------------------------------------------------- /\ ----/'
  48.   Nikola Smolenski - member of Team AMIGA        smolenski@setnet.co.yu
  49.  
  50.  * *** NOVI SAAAAAAAAAD!!!!!!!!!!!!!!!!!!!!!!!!! *** *
  51.  
  52.  * AmyBW v2.14 *
  53. ... "I wonder if your feelings on this matter are clear, Lord Vader."
  54. --- Blue Wave/RA